﻿' BasecampVB - http://www.tidbitsandtangents.com
' Copyright (c) 2009
' by Rusty S. Swayne
'
' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated 
' documentation files (the "Software"), to deal in the Software without restriction, including without limitation 
' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and 
' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
'
' The above copyright notice and this permission notice shall be included in all copies or substantial portions 
' of the Software.
'
' THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
' INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
' DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
' SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
' SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
' WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
' THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

Namespace DAL

    Public Class ToDoListDetails

        Public Sub New( _
            ByVal todo_list_id As Integer, _
            ByVal project_id As Integer, _
            ByVal milestone_id As Integer, _
            ByVal name As String, _
            ByVal description As String, _
            ByVal position As Integer, _
            ByVal completed_count As Integer, _
            ByVal uncompleted_count As Integer, _
            ByVal tracked As Boolean, _
            ByVal is_private As Boolean, _
            ByVal complete As Boolean)

            Me.todo_list_id = todo_list_id
            Me.project_id = project_id
            Me.milestone_id = milestone_id
            Me.name = name
            Me.description = description
            Me.position = position
            Me.completed_count = completed_count
            Me.uncompleted_count = uncompleted_count
            Me.tracked = tracked
            Me.is_private = is_private
            Me.complete = complete

        End Sub

#Region "Properties"

        Private _todo_list_id As Integer
        Public Property todo_list_id() As Integer
            Get
                Return _todo_list_id
            End Get
            Set(ByVal value As Integer)
                _todo_list_id = value
            End Set
        End Property

        Private _project_id As Integer
        Public Property project_id() As Integer
            Get
                Return _project_id
            End Get
            Set(ByVal value As Integer)
                _project_id = value
            End Set
        End Property

        Private _milestone_id As Integer
        Public Property milestone_id() As Integer
            Get
                Return _milestone_id
            End Get
            Set(ByVal value As Integer)
                _milestone_id = value
            End Set
        End Property


        Private _name As String
        Public Property name() As String
            Get
                Return _name
            End Get
            Set(ByVal value As String)
                _name = value
            End Set
        End Property

        Private _description As String
        Public Property description() As String
            Get
                Return _description
            End Get
            Set(ByVal value As String)
                _description = value
            End Set
        End Property


        Private _position As Integer
        Public Property position() As Integer
            Get
                Return _position
            End Get
            Set(ByVal value As Integer)
                _position = value
            End Set
        End Property

        Private _completed_count As Integer
        Public Property completed_count() As Integer
            Get
                Return _completed_count
            End Get
            Set(ByVal value As Integer)
                _completed_count = value
            End Set
        End Property


        Private _uncompleted_count As Integer
        Public Property uncompleted_count() As Integer
            Get
                Return _uncompleted_count
            End Get
            Set(ByVal value As Integer)
                _uncompleted_count = value
            End Set
        End Property

        Private _tracked As Boolean
        Public Property tracked() As Boolean
            Get
                Return _tracked
            End Get
            Set(ByVal value As Boolean)
                _tracked = value
            End Set
        End Property


        Private _is_private As Boolean
        Public Property is_private() As Boolean
            Get
                Return _is_private
            End Get
            Set(ByVal value As Boolean)
                _is_private = value
            End Set
        End Property

        Private _complete As Boolean
        Public Property complete() As Boolean
            Get
                Return _complete
            End Get
            Set(ByVal value As Boolean)
                _complete = value
            End Set
        End Property


#End Region

    End Class


End Namespace